home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / telecomm / bbs / tbbs093.lha / Menu / FileMenu.dat < prev    next >
Encoding:
Text File  |  1994-02-24  |  3.2 KB  |  127 lines
  1. /* File Menu */
  2.  
  3. MenuName "Files"
  4.  
  5. MenuText "Text/FileMenu"
  6.  
  7. Prompt "(\(GetTimeLeft())) \(27)[36m\(GetFileArea()): \(27)[0m"
  8.  
  9. Unknown "\(27)[36mInvalid command: \(27)[0m'%s'"
  10.  
  11. Command "desc" {
  12.     $opt = arg(1);
  13.     if($opt == "") $opt = AskInput("Enter filename to change description of: ", "", 40);
  14.     if($opt != "") {
  15.         rexx("ChgDesc \($opt)");
  16.         rexx("SaveExt");
  17.     }
  18. };
  19.  
  20. Command "?" {
  21.     rexx("SendASCII Text/FileMenu.txt");
  22. };
  23.  
  24. Command "sel" {
  25.     $opt = "";
  26.     $an = 1;
  27.     while(arg($an) != "") {
  28.         $opt = "\($opt) \(arg($an))";
  29.         $an = $an + 1;
  30.     }
  31.     rexx("SelectFiles\($opt)");
  32. };
  33.  
  34. Command "download" (N:1) {
  35.     rexx("LogEntry Downloading files");
  36.     if(arg(1) != "") {
  37.         $an = 1;
  38.         while(arg($an) != "") {
  39.             rexx("MarkFile !\(arg($an))");
  40.             $an = $an + 1;
  41.         }
  42.     }
  43.     rexx("SendASCII Text/Download.txt");
  44.     rexx("Download");
  45. };
  46.  
  47. Command "upload" (N:1) {
  48.     rexx("LogEntry Uploading files");
  49.     rexx("SendASCII Text/Upload.txt");
  50.     rexx("Upload");
  51. };
  52.  
  53. Command "mark" (N:1) {
  54.     if(arg(1) != "") {
  55.         $an = 1;
  56.         while(arg($an) != "") {
  57.             rexx("MarkFile \(arg($an))");
  58.             $an = $an + 1;
  59.         }
  60.     } else rexx("MarkFile");
  61. };
  62.  
  63. Command "list" (N:1) {
  64.     $opt = "-M -L";
  65.     if(arg(1) != "") {
  66.         $an = 1;
  67.         while(arg($an) != "") {
  68.             if(str(arg($an), 1, 1) == "-") {
  69.                 $id = str(arg($an), 2, 1);
  70.                 if($id == "d") $opt = "\($opt) -d\(GetDateVal() - str(arg($an), 3, len(arg($an)) - 2))";
  71.                 else if($id == "n") $opt = "\($opt) -d\(GetUserMisc("LASTFSCAN"))";
  72.                 else if($id == "a") $opt = "\($opt) -E";
  73.                 else if($id == "!") $opt = "\($opt) -\(str(arg($an), 3, 1))";
  74.                 else $opt = "\($opt) \(arg($an))";
  75.             } else $opt = "\($opt) -P\(arg($an))";
  76.             $an = $an + 1;
  77.         }
  78.     }
  79.     rexx("ListFiles \($opt)");
  80. };
  81.  
  82. Command "area" (N:1) {
  83.     if(arg(1) != "") {
  84.         $an = 1;
  85.         while(arg($an) != "") {
  86.             rexx("SelectFileArea \(arg($an))");
  87.             $an = $an + 1;
  88.         }
  89.     } else rexx("SelectFileArea");
  90. };
  91.  
  92. Command "find" (N:1) {
  93.     if(arg(1) != "") $sstr = arg(1);
  94.     else $sstr = AskInput("\(27)[32mEnter search string: \(27)[0m", "", 60);
  95.     if($sstr != "") {
  96.         rexx("SendModem \(27)[33mSearching for: \(27)[0m'\($sstr)'\(13)\(10)\(13)\(10)");
  97.         rexx("ListFiles -A -M -L -B -N -U -F'\($sstr)'");
  98.     } else rexx("SendModem \(27)[31mOperation canceled\(27)[0m\(13)\(10)");
  99. };
  100.  
  101. Command "view" (N:1) {
  102.     if(arg(1) != "") $aname = arg(1);
  103.     else $aname = AskInput("\(27)[32mEnter archive name: \(27)[0m", "", 60);
  104.     $aname = GetFilePath($aname);
  105.     if($aname == "") rexx("SendModem \(13)\(10)\(27)[31mCouldn't find the file\(13)\(10)\(27)[0m");
  106.     else {
  107.         rexx("SendModem \(13)\(10)Viewing file\(13)\(10)\(13)\(10)");
  108.         dos("BBS:Rexx/ViewArc.rexx >t:varctmp.txt\(node()) \($aname)");
  109.         rexx("SendASCII t:varctmp.txt\(node())");
  110.         dos("delete t:varctmp.txt\(node())");
  111.         GetHotkey("Press any key to continue...");
  112.         rexx("SendModem \(13)\(10)");
  113.     }
  114. };
  115.  
  116. Command ":" {
  117.     rexx("FileRoot");
  118. };
  119.  
  120. Command "/" {
  121.     rexx("ParentFileArea");
  122. };
  123.  
  124. Command "quit" (N:1) {
  125.     menu("MainMenu.menu");
  126. };
  127.